home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / Intuition / Font.st < prev    next >
Text File  |  2000-05-03  |  1KB  |  47 lines
  1. "----------------------------------------------"
  2. " Font Class implements control of Amiga Fonts."
  3. "----------------------------------------------"
  4.  
  5. Class Font :Glyph
  6. ! name ySize style flags fontName !
  7. [
  8.    remove
  9.       <primitive 188 4 fontName>. "fontName is internal to AmigaTalk."
  10.       ^ nil
  11. |
  12.    getName
  13.       ^ name <- <primitive 188 6 0 fontName>  "return ta_Name."
  14. |
  15.    setName: newName
  16.       <primitive 188 7 0 newName fontName>.    "set ta_Name."
  17.       fontName <- newName.
  18.       name     <- newName
  19. |
  20.    getYSize
  21.       ^ ySize <- <primitive 188 6 1 fontName> "return ta_YSize."
  22. |
  23.    setYSize: newYSize
  24.       <primitive 188 7 1 newYSize fontName>.  "set ta_YSize."
  25.       ySize <- newYSize
  26. |
  27.    getStyle
  28.       ^ style <- <primitive 188 6 2 fontName> "return ta_Style."
  29. |
  30.    setStyle: newStyle
  31.       <primitive 188 7 2 newStyle fontName>.  "set ta_Style."
  32.       style <- newStyle
  33. |
  34.    getFlags
  35.       ^ flags <- <primitive 188 6 3 fontName> "return ta_Flags."
  36. |
  37.    setFlags: newFlags
  38.       <primitive 188 7 3 newFlags fontName>.   "set ta_Flags."
  39.       flags <- newFlags
  40. |
  41.    new: newFontName
  42.       <primitive 188 5 newFontName newFontName>.
  43.       fontName <- newFontName. "fontName is internal to AmigaTalk."
  44.       name     <- newFontName. "name gets copied to ta_Name."
  45.       ^ self
  46. ]
  47.